home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / text / tex / amiweb2c.lha / AmiWeb2c-2.1 / texmf / pastex / rexx / StartDVIprintSetUp.sd < prev    next >
Encoding:
Text File  |  1997-02-09  |  3.1 KB  |  74 lines
  1. /***********************************************************************
  2. ** RX $VER: StartDVIPrintSetUp.sd 3.4 (8.2.1997)                      **
  3. **                                                                    **
  4. ** Mit diesem ARexx-Skript kann man DVIprint sehr einfach und         **
  5. ** komfortabel von ShowDVI aus aufrufen.  Als Schnittstelle zwischen  **
  6. ** dem Previewer ShowDVI und dem Druckertreiber DVIprint wird das     **
  7. ** Einstellerprogramm DVIPrintSetUp vorgeschaltet, mit dem sämtliche  **
  8. ** Einstellungen und Optionen festgelegt werden können.  Die          **
  9. ** Ersetzung des Aufrufes von StartDVIprint.sd in ShowDVI.config      **
  10. ** durch dieses Script wird das Interface-Programm DVIPrintSetUp      **
  11. ** eingebunden.                                                       **
  12. **                                                                    **
  13. ** HINWEIS: Es werden die Programme                                   **
  14. **                                                                    **
  15. **       'DVIprint'                                                   **
  16. **       'DVIPrintSetUp'                                              **
  17. **                                                                    **
  18. ** benötigt.  Systembedingte Voraussetzungen erlauben die Benutzung   **
  19. ** von DVIPrintSetUp erst ab AmigaOS 2.0!                             **
  20. **                                                                    **
  21. ** ÄNDERUNGEN:                                                        **
  22. ** 17.3.1994: Spezialfall "RAM DISK:" wird erkannt.                   **
  23. ** 18.3.1995: TDS installiert.                                        **
  24. **  8.2.1997: Vorbereitung der AmiWeb2c 2.0 Distribution.             **
  25. ***********************************************************************/
  26.  
  27. Options Results
  28.  
  29. /***********************************************************************
  30. ** Dateiname, Pfad und aktuelle Seite von ShowDVI erfragen.           **
  31. ***********************************************************************/
  32. GetFile
  33. LOADEDFILE = RESULT
  34.  
  35. GetDir
  36. LOADEDDIR = RESULT
  37.  
  38. If "RAM DISK:" = Upper(Left(LOADEDDIR,9)) Then
  39.   LOADEDDIR = "RAM:" || SubStr(LOADEDDIR,10)
  40.  
  41. GetPage
  42. PAGE = RESULT
  43.  
  44. If Right(LOADEDDIR,1)~='/' & Right(LOADEDDIR,1)~=':' Then
  45.   LOADEDDIR = LOADEDDIR||'/'
  46.  
  47. If Upper(Right(LOADEDFILE,4)) ~= ".DVI" Then
  48.   LOADEDFILE = LOADEDFILE||".dvi"
  49.  
  50. If LOADEDFILE = "" | ~Exists(LOADEDDIR||LOADEDFILE) Then Do
  51.   Message "Welche Datei soll gedruckt werden?"
  52.   Exit
  53. End
  54.  
  55. If Show('Port','dviprint') Then Do
  56.   Message "DVIprint läuft bereits, bitte warten"
  57.   Exit
  58. End
  59.  
  60. /***********************************************************************
  61. ** Übergib das ganze an das SetUp-Programm. Das macht dann den Rest.  **
  62. ***********************************************************************/
  63. Address COMMAND 'DVIPrintSetUp' PAGE LOADEDDIR||LOADEDFILE
  64. If RC > 0 Then
  65.   Message "Fehler bei DVIprint."
  66. Else
  67.   Message "Druck beendet."
  68.  
  69. Exit 0
  70.  
  71. /***********************************************************************
  72. * Ende.                                                               **
  73. ***********************************************************************/
  74.